home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / amos / ldosv25d.lha / ldos_demo / examples / ldos / PowerP.AMOS / PowerP.amosSourceCode
AMOS Source Code  |  1992-02-25  |  830b  |  39 lines
  1. Amos To Back 
  2. A$= Extension_10_01A0("Select a PowerPacked DATA-file",$2+$4+$10+$1000)
  3. Amos To Front 
  4. If A$=""
  5.    End 
  6. End If 
  7. L= Extension_10_0182(A$)
  8. Reserve As Work 10,L
  9.  Extension_10_0006 1,A$,0
  10. A= Extension_10_0024(1,Start(10),L)
  11.  Extension_10_0016 1
  12. If A<>L
  13.    Print "FileError!"
  14.    End 
  15. End If 
  16. REAL= Extension_10_024E(Start(10)+L)
  17. Print Extension_10_0202 ;" will need";REAL;" bytes when decrunched"
  18. Reserve As Work 11,REAL
  19. Print "Decrucnhing...."
  20. 'Timer=T 
  21.  Extension_10_025C Start(10),Start(10)+L To Start(11)
  22. 'Print Timer-T 
  23. 'End 
  24. Amos To Back 
  25. A$= Extension_10_01A0("Select a filename for saving..",$2+$4+$10+$800)
  26. Amos To Front 
  27. If A$=""
  28.    End 
  29. End If 
  30. If Exist(A$)
  31.    Kill A$
  32. End If 
  33.  Extension_10_0006 1,A$,1
  34. A= Extension_10_0034(1,Start(11),REAL)
  35.  Extension_10_0016 1
  36. If A<>REAL
  37.    Print "FileError!"
  38.    End 
  39. End If